home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / borland / jnfb88.arc / PROCPU.ARC / PROCPU.PRO < prev   
Encoding:
Text File  |  1987-10-27  |  412 b   |  18 lines
  1. /* Listing 4 -- PROCPU.PRO which calls the assembly language
  2.                 subroutine */
  3.  
  4. code = 2500
  5.  
  6. global predicates
  7.    getcpu(integer) - (o) language asm
  8.  
  9. goal
  10.      getcpu(CPU),                       /* Call ASM subroutine. */
  11.      makewindow(1,77,7,"",10,20,10,40), /* Write result */
  12.      write("Processor is 80",CPU),
  13.      nl,
  14.      write("<RET>"),
  15.      readln(_),
  16.      removewindow.
  17.  
  18.